home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Smooth, Fa231607202001.psc / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2001-07-20  |  271 b   |  7 lines
  1. Attribute VB_Name = "Module1"
  2. Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  3.  
  4. Public Function PlayWav(WavFile As String)
  5. sndPlaySound App.Path & "\" & WavFile, 1
  6. End Function
  7.